home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / SYSUTIL1.M < prev    next >
Encoding:
Text File  |  1989-05-22  |  1.1 KB  |  21 lines
  1. MODULE T;
  2. (*$C-*)
  3. from terminal import WriteString, writeln, write, writepg, read;
  4. FROM SYSTEM IMPORT ADDRESS, ADR, TSIZE, BYTE, WORD, LONGWORD, VAL;
  5. import sysutil1;
  6. var ad: ADDRESS;
  7.     c: char;
  8.     b: byte;
  9. const p = $ff8241;
  10. BEGIN
  11.   writepg;
  12.   sysutil1.superbitclr (p, 0);
  13.   if sysutil1.superbit (p, 0) then write ('1') else write ('0') end;
  14.   read (c);
  15.   sysutil1.superbitset (p, 0);
  16.   if sysutil1.superbit (p, 0) then write ('1') else write ('0') end;
  17.   read (c)
  18. END T.
  19. ə
  20. (* $FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFF6F032$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1ED$FFFBC1EDÇ$00000103T......TT.......T.....T.T.......T.......T.......T.......T.......T.......T.......$0000013A$0000018D$000001AD$0000011A$0000013A$0000018D$000001AD$000000EB$000001DC$00000176$00000103$0000018A$00000184$000001A7$000000EE$0000011AãÇÇ*)
  21.